--- a/FLIReader.st	Mon Apr 21 21:05:36 1997 +0200
+++ b/FLIReader.st	Mon Apr 21 21:16:58 1997 +0200
@@ -116,6 +116,13 @@
 !FLIReader class methodsFor:'class initialization'!
 
 initialize
+    "install myself in the Image classes fileFormat table
+     for the `.fli' and '.flc' extensions."
+
+"/    Image addReader:self suffix:'fli'.
+"/    Image addReader:self suffix:'flc'.
+
+
     FLI_FILE_MAGIC := 16rAF11.
     FLC_FILE_MAGIC := 16rAF12.
 
@@ -140,7 +147,7 @@
      FLIReader initialize
     "
 
-    "Modified: 4.4.1997 / 22:19:45 / cg"
+    "Modified: 21.4.1997 / 21:16:48 / cg"
 ! !
 
 !FLIReader class methodsFor:'testing'!
@@ -320,9 +327,10 @@
 
 deltaChunkAt:chunkOffs
 "/    'deltaChunkAt' infoPrintCR.
-    self halt:'FLI delta chunks not yet implemented'
 
-    "Modified: 21.4.1997 / 17:30:29 / cg"
+    Image badImageFormatQuerySignal raiseErrorString:'FLIReader [error]: delta chunks not yet implemented'
+
+    "Modified: 21.4.1997 / 21:15:05 / cg"
 !
 
 lcChunkAt:chunkOffs
@@ -428,8 +436,13 @@
 
     (self getHeader) ifFalse:[^ nil].
 
-    1 to:nframes do:[:frameIndex |
-        self getFrame
+    Image badImageFormatQuerySignal handle:[:ex |
+        ex errorString infoPrintCR.
+        ^ nil
+    ] do:[
+        1 to:nframes do:[:frameIndex |
+            self getFrame
+        ]
     ].
 
     "/ return the first frame as image
@@ -449,7 +462,7 @@
      FLIReader fromFile:'/usr/local/FLI/jeffmild.fli'      
     "
 
-    "Modified: 4.4.1997 / 22:45:32 / cg"
+    "Modified: 21.4.1997 / 21:14:29 / cg"
 !
 
 getFrame
@@ -552,6 +565,6 @@
 !FLIReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FLIReader.st,v 1.5 1997-04-21 16:57:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FLIReader.st,v 1.6 1997-04-21 19:16:58 cg Exp $'
 ! !
 FLIReader initialize!