--- a/ImageEditView.st	Wed Oct 23 11:26:55 2002 +0200
+++ b/ImageEditView.st	Wed Oct 23 11:44:01 2002 +0200
@@ -2109,7 +2109,7 @@
         |category imageStoreStream cls sel mthd imageKey|
 
         windowGroup withExecuteCursorDo:[
-            (self resourceSelector trimBlanks size = 0) | (cls := Smalltalk at: self resourceClass) isClass not 
+            (self resourceSelector trimBlanks size = 0) | (cls := Smalltalk at: self resourceClass asSymbol) isClass not 
                 ifTrue: [^self saveMethodAs].
 
             CodeGeneratorTool
@@ -2241,7 +2241,7 @@
 !ImageEditView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.170 2002-10-11 17:12:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.171 2002-10-23 09:44:01 mb Exp $'
 ! !
 
 ImageEditView initialize!