--- a/RsrcPack.st	Wed Oct 16 10:58:47 1996 +0200
+++ b/RsrcPack.st	Fri Oct 18 14:36:43 1996 +0200
@@ -240,6 +240,9 @@
 
     idx := Packs identityIndexOf:nil.
     idx == 0 ifTrue:[
+	idx := Packs identityIndexOf:0
+    ].
+    idx == 0 ifTrue:[
 	"
 	 throw away oldest
 	"
@@ -262,7 +265,8 @@
 	|aPack|
 
 	aPack := Packs at:idx.
-	aPack notNil ifTrue:[
+	(aPack notNil 
+	and:[aPack ~~ 0]) ifTrue:[
 	    aClassname = aPack packsClassName ifTrue:[
 		"
 		 bring to end for LRU
@@ -575,6 +579,6 @@
 !ResourcePack  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/RsrcPack.st,v 1.36 1996-09-09 16:58:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/RsrcPack.st,v 1.37 1996-10-18 12:36:43 cg Exp $'
 ! !
 ResourcePack initialize!