--- a/Image.st	Wed Jan 24 23:30:49 1996 +0100
+++ b/Image.st	Fri Jan 26 11:29:16 1996 +0100
@@ -1688,7 +1688,7 @@
 paletteImageAsFormOn:aDevice
     "return a device-form for the palette-image receiver"
 
-    |type|
+    |type ddepth|
 
     (ddepth := aDevice depth) == 1 ifTrue:[
 	^ self paletteImageAsMonoFormOn:aDevice
@@ -3200,5 +3200,5 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.54 1996-01-24 22:30:49 cg Exp $'! !
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.55 1996-01-26 10:29:16 cg Exp $'! !
 Image initialize!