--- a/Label.st	Tue Sep 08 23:35:52 1998 +0200
+++ b/Label.st	Wed Sep 09 10:52:11 1998 +0200
@@ -1644,9 +1644,9 @@
             x := x + hSpace.
             y := y + vSpace.
 
-            level > 0 ifTrue:[
-                x := x - 1.
-                y := y - 1
+            level < 0 ifTrue:[
+                x := x + 1.
+                y := y + 1
             ].
 
             (logo isString
@@ -1748,5 +1748,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.93 1998-09-08 11:08:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.94 1998-09-09 08:52:11 cg Exp $'
 ! !