--- a/Label.st	Fri Oct 20 13:09:47 2000 +0200
+++ b/Label.st	Wed Oct 25 15:12:00 2000 +0200
@@ -1019,6 +1019,10 @@
                 ]
             ]
         ] ifFalse:[
+            aStringOrFormOrImage isNumber ifTrue:[
+                ^ here label:(aStringOrFormOrImage asString).
+            ].
+
             "/ any change ?
             (logo = aStringOrFormOrImage) ifTrue:[
                 (logo isString) ifTrue:[
@@ -1763,5 +1767,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.110 2000-09-06 13:48:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.111 2000-10-25 13:12:00 martin Exp $'
 ! !