--- a/Array.st	Fri Oct 13 11:52:45 2006 +0200
+++ b/Array.st	Fri Oct 13 13:01:35 2006 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 ArrayedCollection variableSubclass:#Array
@@ -2465,12 +2464,9 @@
     "/ care for recursive arrays ...
     "/
     thisContext isRecursive ifTrue:[^ false].
-    self do:[:element |
-	element isLiteral ifFalse:[^ false]
-    ].
-    ^ true
+    ^ self conform:[:element | element isLiteral].
 
-    "Modified: 22.4.1996 / 12:55:19 / cg"
+    "Modified: / 13-10-2006 / 13:00:45 / cg"
 !
 
 notEmpty
@@ -2500,5 +2496,5 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.141 2006-05-15 09:15:58 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.142 2006-10-13 11:01:35 cg Exp $'
 ! !