--- a/SequenceableCollection.st	Thu May 12 18:08:17 2016 +0200
+++ b/SequenceableCollection.st	Thu May 12 18:09:33 2016 +0200
@@ -15,7 +15,7 @@
 
 Collection subclass:#SequenceableCollection
 	instanceVariableNames:''
-	classVariableNames:'MissingClassInLiteralArrayErrorSignal'
+	classVariableNames:''
 	poolDictionaries:''
 	category:'Collections-Abstract'
 !
@@ -65,11 +65,14 @@
 !SequenceableCollection class methodsFor:'initialization'!
 
 initialize
-    MissingClassInLiteralArrayErrorSignal isNil ifTrue:[
-	MissingClassInLiteralArrayErrorSignal := Error newSignalMayProceed:true.
-	MissingClassInLiteralArrayErrorSignal nameClass:self message:#missingClassInLiteralArrayErrorSignal.
-	MissingClassInLiteralArrayErrorSignal notifierString:'Missing class in literal encoding'.
-    ]
+"/ now a class based exception
+"/ method here left as a comment for a while.
+"/ will go away soon...
+"/    MissingClassInLiteralArrayErrorSignal isNil ifTrue:[
+"/        MissingClassInLiteralArrayErrorSignal := Error newSignalMayProceed:true.
+"/        MissingClassInLiteralArrayErrorSignal nameClass:self message:#missingClassInLiteralArrayErrorSignal.
+"/        MissingClassInLiteralArrayErrorSignal notifierString:'Missing class in literal encoding'.
+"/    ]
 
     "Created: / 18.5.1999 / 14:49:51 / cg"
 ! !
@@ -222,6 +225,13 @@
 !SequenceableCollection class methodsFor:'Signal constants'!
 
 missingClassInLiteralArrayErrorSignal
+    "raised when decoding a literal array spec,
+     when a non-existing class is encountered
+     (i.e. a spec-element of the form (ClassNameSymbol args...),
+      where ClassNameSymbol refers to a non-existing class)"
+      
+    "/ now a class based exception.
+    "/ method here will vanish sometime..
     ^ MissingClassInLiteralArrayErrorSignal
 
     "Created: / 18.5.1999 / 14:50:04 / cg"