Index: /trunk/source/contrib/foy/hemlock-commands-cm/hemlock-commands-new.lisp
===================================================================
--- /trunk/source/contrib/foy/hemlock-commands-cm/hemlock-commands-new.lisp	(revision 12723)
+++ /trunk/source/contrib/foy/hemlock-commands-cm/hemlock-commands-new.lisp	(revision 12724)
@@ -5,5 +5,5 @@
 ;;;      hemlock-commands-new.lisp
 ;;;
-;;;      copyright © 2009 Glen Foy
+;;;      copyright ￜ 2009 Glen Foy
 ;;;      (Permission is granted to Clozure Associates to distribute this file.)
 ;;;
@@ -95,4 +95,7 @@
           (when (macro-function sym) (setq doctype 'macro))
           (when (special-form-p sym) (setq doctype 'special-form)))
+        (when (eq doctype 'type)
+          (when (find-class sym nil)
+            (setq doctype 'class)))
         (open-documentation-dialog
          (if args