--- a/Label.st	Tue Sep 08 12:15:20 1998 +0200
+++ b/Label.st	Tue Sep 08 13:08:51 1998 +0200
@@ -1644,6 +1644,11 @@
             x := x + hSpace.
             y := y + vSpace.
 
+            level > 0 ifTrue:[
+                x := x - 1.
+                y := y - 1
+            ].
+
             (logo isString
             or:[logo species == String
             or:[logo isKindOf:StringCollection]]) ifTrue:[
@@ -1700,7 +1705,7 @@
 
     ]
 
-    "Modified: 6.6.1997 / 16:38:48 / cg"
+    "Modified: / 6.9.1998 / 22:35:53 / cg"
 !
 
 redraw
@@ -1743,5 +1748,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.92 1998-08-17 11:14:03 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.93 1998-09-08 11:08:51 cg Exp $'
 ! !