--- a/Object.st	Wed Jul 31 21:00:47 2002 +0200
+++ b/Object.st	Wed Jul 31 21:24:59 2002 +0200
@@ -13,20 +13,20 @@
 "{ Package: 'stx:libbasic' }"
 
 nil subclass:#Object
-        instanceVariableNames:''
-        classVariableNames:'ErrorSignal HaltSignal MessageNotUnderstoodSignal
-                UserInterruptSignal RecursionInterruptSignal
-                ExceptionInterruptSignal SubscriptOutOfBoundsSignal
-                IndexNotFoundSignal NonIntegerIndexSignal NotFoundSignal
-                KeyNotFoundSignal ElementOutOfBoundsSignal UserNotificationSignal
-                InformationSignal WarningSignal PrimitiveFailureSignal
-                DeepCopyErrorSignal AbortSignal ErrorRecursion Dependencies
-                InfoPrinting ActivityNotificationSignal InternalErrorSignal
-                NonWeakDependencies SynchronizationSemaphores ObjectAttributes
-                OSSignalInterruptSignal FinalizationLobby
-                RecursiveStoreStringSignal AbortAllSignal'
-        poolDictionaries:''
-        category:'Kernel-Objects'
+	instanceVariableNames:''
+	classVariableNames:'ErrorSignal HaltSignal MessageNotUnderstoodSignal
+		UserInterruptSignal RecursionInterruptSignal
+		ExceptionInterruptSignal SubscriptOutOfBoundsSignal
+		IndexNotFoundSignal NonIntegerIndexSignal NotFoundSignal
+		KeyNotFoundSignal ElementOutOfBoundsSignal UserNotificationSignal
+		InformationSignal WarningSignal PrimitiveFailureSignal
+		DeepCopyErrorSignal AbortSignal ErrorRecursion Dependencies
+		InfoPrinting ActivityNotificationSignal InternalErrorSignal
+		NonWeakDependencies SynchronizationSemaphores ObjectAttributes
+		OSSignalInterruptSignal FinalizationLobby
+		RecursiveStoreStringSignal AbortAllSignal'
+	poolDictionaries:''
+	category:'Kernel-Objects'
 !
 
 !Object class methodsFor:'documentation'!
@@ -2301,6 +2301,12 @@
     "return a cons with the receiver as car and the argument as cdr"
 
     ^ Cons car:self cdr:anObject
+
+    "
+     (1 !! 2)
+     (#car !! #cdr)
+     (1 !! (2 !! 3 !! nil))
+    "
 !
 
 -> anObject
@@ -8660,6 +8666,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.414 2002-07-31 19:00:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.415 2002-07-31 19:24:59 cg Exp $'
 ! !
 Object initialize!