--- a/MCMethodDefinition.st	Wed Sep 07 15:23:13 2011 +0200
+++ b/MCMethodDefinition.st	Wed Sep 07 15:43:10 2011 +0200
@@ -83,14 +83,14 @@
 
 actualClass
     ^ Smalltalk 
-        at:(installedClassName ? className)
+        at:(installedClassName ? className) asSymbol
         ifPresent: [:class | 
             classIsMeta 
                 ifTrue: [class theMetaclass "classSide"] 
                 ifFalse: [class]
         ]
 
-    "Modified: / 07-09-2011 / 15:23:00 / cg"
+    "Modified: / 07-09-2011 / 15:23:45 / cg"
 !
 
 category
@@ -402,11 +402,11 @@
 !MCMethodDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMethodDefinition.st,v 1.7 2011-09-07 13:23:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMethodDefinition.st,v 1.8 2011-09-07 13:43:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMethodDefinition.st,v 1.7 2011-09-07 13:23:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMethodDefinition.st,v 1.8 2011-09-07 13:43:10 cg Exp $'
 !
 
 version_SVN