--- a/StandardSystemView.st	Thu Apr 23 21:41:19 1998 +0200
+++ b/StandardSystemView.st	Sat Apr 25 16:02:53 1998 +0200
@@ -684,13 +684,17 @@
 iconLabel:aString
     "define the name to be displayed in the icon"
 
-    iconLabel := aString.
-    drawableId notNil ifTrue:[
-	device setIconName:aString in:drawableId.
-	"
-	 unbuffered - to make it visible right NOW
-	"
-	device flush.
+    |newLabel|
+
+    (newLabel := aString string) ~= iconLabel ifTrue:[
+        iconLabel := newLabel.
+        drawableId notNil ifTrue:[
+            device setIconName:newLabel in:drawableId.
+            "
+             unbuffered - to make it visible right NOW
+            "
+            device flush.
+        ]
     ]
 !
 
@@ -752,10 +756,12 @@
      (you will appreciate this, if you are working on multiple
       machines simultaneously - as I do ...)"
 
-    aString ~= label ifTrue:[
-        label := aString.
+    |newLabel|
+
+    (newLabel := aString string) ~= label ifTrue:[
+        label := newLabel.
         drawableId notNil ifTrue: [
-            device setWindowName:(self windowLabelFor:aString) in:drawableId.
+            device setWindowName:(self windowLabelFor:newLabel) in:drawableId.
             "
              unbuffered - to make it visible right NOW
             "
@@ -1236,12 +1242,12 @@
     super create.
 
     iconView notNil ifTrue:[
-	iconView create.
-	device setWindowIconWindow:iconView in:drawableId.
-	iconView setRealized:true.
+        iconView create.
+        device setWindowIconWindow:iconView in:drawableId.
+        iconView setRealized:true.
     ].
     iconLabel notNil ifTrue:[
-	device setIconName:iconLabel in:drawableId
+        device setIconName:iconLabel string in:drawableId
     ]
 
     "Modified: 10.6.1996 / 20:14:50 / cg"
@@ -1406,6 +1412,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.94 1998-04-22 07:41:42 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.95 1998-04-25 14:02:53 cg Exp $'
 ! !
 StandardSystemView initialize!