--- a/ImageEditor.st	Wed Jan 25 12:36:42 2006 +0100
+++ b/ImageEditor.st	Wed Jan 25 13:22:34 2006 +0100
@@ -3459,16 +3459,17 @@
     |p s x y|
 
     p := Object readFromString:aString onError:nil.
-    p notNil ifTrue:[^ p].
+    p isPoint ifTrue:[^ p].
 
     s := aString readStream.
     x := Number readFrom:s onError:nil.
     x notNil ifTrue:[
         s skipSeparators.
-        [s atEnd not and:[s peek isDigit]] whileFalse:[s next].
+        [s atEnd not and:[s peek isDigit not]] whileTrue:[s next].
         y := Number readFrom:s onError:nil.
         ^ x @ (y ? x)
     ].
+    ^ nil
 !
 
 sortBlockForColors
@@ -4988,9 +4989,12 @@
     ifTrue:[
         szString := (aspects at:#selectionOfSize) value.
         ext := self pointFromString:szString.
-        width := ext x.
-        height := ext y.
-
+        ext isNil ifTrue:[
+            width := height := 32
+        ] ifFalse:[
+            width := ext x.
+            height := ext y.
+        ].
 "/        width  := "128 min: "(Integer readFromString: (szString upTo: $x) onError:[32]).
 "/        height := "128 min: " (Integer readFromString: (szString copy reverse upTo: $x) reverse onError:[32]).