--- a/ListView.st	Mon Aug 11 13:59:22 1997 +0200
+++ b/ListView.st	Mon Aug 11 13:59:55 1997 +0200
@@ -483,14 +483,16 @@
 
     |newMargin|
 
-    newMargin := aNumber abs.
-    textStartLeft := leftMargin + newMargin.
-    textStartTop := topMargin + newMargin.
-    innerWidth := width - textStartLeft - newMargin.
-
-    super level:aNumber.
-
-    "Modified: 22.5.1996 / 12:27:11 / cg"
+    aNumber ~~ level ifTrue:[
+        newMargin := aNumber abs.
+        textStartLeft := leftMargin + newMargin.
+        textStartTop := topMargin + newMargin.
+        innerWidth := width - textStartLeft - newMargin.
+
+        super level:aNumber.
+    ]
+
+    "Modified: 11.8.1997 / 02:59:15 / cg"
 !
 
 lineSpacing:pixels
@@ -3679,5 +3681,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.137 1997-07-03 10:58:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.138 1997-08-11 11:59:55 cg Exp $'
 ! !