--- a/ImageEditView.st	Fri Oct 12 11:07:18 2001 +0200
+++ b/ImageEditView.st	Fri Oct 12 15:04:13 2001 +0200
@@ -1701,18 +1701,22 @@
     self resourceClass: aClassOrSymbol.
     self resourceSelector: aStringOrSymbol.
 
-    ((aClass := Smalltalk at: resourceClass) isClass and: 
-    [aClass class implements: resourceSelector])
-    ifTrue:
-    [ 
-	self releaseUndos.
-	^self image: (aClass perform: resourceSelector) copy
-    ]
-    ifFalse:
-    [
-	modified := false.
-	^nil
-    ]
+    (aClass := Smalltalk at: resourceClass) isClass ifTrue:[ 
+        (aClass class implements: resourceSelector)
+        ifTrue:
+        [ 
+            self releaseUndos.
+            ^self image: (aClass perform: resourceSelector) copy
+        ].
+        (aClass implements: resourceSelector)
+        ifTrue:
+        [ 
+            self releaseUndos.
+            ^self image: (aClass basicNew perform: resourceSelector) copy
+        ].
+    ].
+    modified := false.
+    ^ nil
 
 ! !
 
@@ -2107,6 +2111,6 @@
 !ImageEditView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.154 2001-10-10 13:09:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.155 2001-10-12 13:04:13 cg Exp $'
 ! !
 ImageEditView initialize!