--- a/Depth4Image.st	Fri Mar 19 10:46:02 1999 +0100
+++ b/Depth4Image.st	Fri Mar 19 22:46:56 1999 +0100
@@ -745,7 +745,7 @@
      value    "{ Class: SmallInteger }"
      x1       "{ Class: SmallInteger }"
      x2       "{ Class: SmallInteger }"
-     colorArray p |
+     colorArray|
 
     colorArray := ((0 to:15) collect:[:i | self colorFromValue:i]) asArray.
 
@@ -967,5 +967,5 @@
 !Depth4Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.37 1998-11-24 15:14:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.38 1999-03-19 21:46:56 cg Exp $'
 ! !