--- a/PCXReader.st	Wed Apr 16 22:12:19 1997 +0200
+++ b/PCXReader.st	Wed Apr 16 22:27:04 1997 +0200
@@ -89,17 +89,19 @@
 isValidPCXHeader:aHeader
     "return true, if aHeader looks like a PCX image header"
 
-    "check id"
+    "check magic number"
     ((aHeader at:1) ~~ 16r0A) ifTrue:[
-	^ false
+        ^ false
     ].
 
     "check version"
     (#(0 2 3 5) includes:(aHeader at:2)) ifFalse:[
-	^ false
+        ^ false
     ].
 
     ^ true
+
+    "Modified: 16.4.1997 / 22:24:32 / cg"
 ! !
 
 !PCXReader methodsFor:'reading from file'!
@@ -161,6 +163,7 @@
         self error:'PCXREADER: unknown compression'.
         ^ nil
     ].
+
     inDepth := header at:4.
 "/    'depth=' print. inDepth printNL.
     nPlanes := header at:66.
@@ -267,7 +270,7 @@
         nBuffer := endIndex - bufferIndex.
     ] ifFalse:[
         "
-         actually untested ...
+         uncompressed; actually untested ...
         "
         data := dataBytes := ByteArray uninitializedNew:(height * width).
         srcBytesPerRow ~~ width ifTrue:[
@@ -333,12 +336,12 @@
      i inspect.
     "
 
-    "Modified: 17.3.1997 / 12:04:18 / cg"
+    "Modified: 16.4.1997 / 22:26:55 / cg"
 ! !
 
 !PCXReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PCXReader.st,v 1.18 1997-03-17 11:05:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PCXReader.st,v 1.19 1997-04-16 20:27:04 cg Exp $'
 ! !
 PCXReader initialize!