diff -r c67bdfe67afd -r 6c14008722e9 UIPainter.st
--- a/UIPainter.st	Fri Jul 09 21:26:59 1999 +0200
+++ b/UIPainter.st	Fri Jul 09 21:30:32 1999 +0200
@@ -2776,25 +2776,23 @@
     ].
 !
 
-loadFromMessage: aMessage
-    "loads a window spec by evaluating aMessage"
-
-    ((aMessage size > 0) and: [self askForModification])
-    ifTrue:
-    [
-	|readStream aClass aSelector|
-	readStream := aMessage readStream.
-	(aClass := Smalltalk at: (readStream upTo: $ ) asSymbol) notNil
-	ifTrue:
-	[
-	    aSelector :=  readStream upToEnd asSymbol.
-	    self setClass: aClass selector: aSelector.    
-	    (aClass respondsTo:aSelector) 
-	    ifTrue:
-	    [   
-		self painter setupFromSpec:(aClass perform:aSelector)
-	    ]
-	]
+loadFromMessage: aMessageString
+    "loads a window spec by evaluating aMessageString
+     (which is something like 'fooClass windowSpec')"
+
+    |readStream aClass aSelector|
+
+    ((aMessageString size > 0) and: [self askForModification])
+    ifTrue:[
+        readStream := aMessageString readStream.
+        (aClass := Smalltalk at: (readStream upTo: $ ) asSymbol) notNil
+        ifTrue:[
+            aSelector :=  readStream upToEnd asSymbol.
+            self setClass: aClass selector: aSelector.    
+            (aClass respondsTo:aSelector) ifTrue:[   
+                self painter setupFromSpec:(aClass perform:aSelector)
+            ]
+        ]
     ]
 !
 
@@ -3451,7 +3449,7 @@
         ^ nil
     ].
     ((application := cls new) respondsTo:#openInterface:) ifFalse:[
-        ^ self warn:('The application does not respond to the ''openInterface:'' message.\\(maybe its supposed to be used as subApplication/subCanvas)') withCRs.
+        ^ self warn:('The application does not respond to the ''openInterface:'' message.\\(maybe the spec is supposed to be used as subApplication/subCanvas)') withCRs.
     ].        
     application openInterface:specSelector
 !