--- a/Object.st	Tue Dec 30 00:51:04 2014 +0100
+++ b/Object.st	Tue Dec 30 00:52:52 2014 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 nil subclass:#Object
 	instanceVariableNames:''
 	classVariableNames:'ErrorSignal HaltSignal MessageNotUnderstoodSignal
@@ -492,7 +494,6 @@
     InfoPrinting := aBoolean
 ! !
 
-
 !Object class methodsFor:'queries'!
 
 isAbstract
@@ -517,8 +518,6 @@
 
 
 
-
-
 !Object methodsFor:'Compatibility-Dolphin'!
 
 stbFixup: anSTBInFiler at: newObjectIndex
@@ -680,9 +679,6 @@
     "
 ! !
 
-
-
-
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -1712,7 +1708,6 @@
     "
 ! !
 
-
 !Object methodsFor:'attributes access'!
 
 objectAttributeAt:attributeKey
@@ -1835,7 +1830,6 @@
 ! !
 
 
-
 !Object methodsFor:'change & update'!
 
 broadcast:aSelectorSymbol
@@ -2016,7 +2010,6 @@
     ^ aBlock ensure:[ self addDependent:someone ]
 ! !
 
-
 !Object methodsFor:'comparing'!
 
 = anObject
@@ -2299,6 +2292,13 @@
     ^ Array with:self
 !
 
+asLink
+    "return a valueLink for the receiver.
+     Used to make sure the receiver can be added to a linked list"
+
+    ^ ValueLink value:self
+!
+
 asSequenceableCollection
     "return myself as a SequenceableCollection.
      Redefined in SequenceableCollection"
@@ -7845,21 +7845,19 @@
     ^ self
 ! !
 
-
 !Object methodsFor:'secure message sending'!
 
-?: selector
+?:selector 
     "try to send a message to the receiver;
      if understood, return the value;
      if not, return nil."
-
+    
     ^ self perform:selector ifNotUnderstood:nil
 
     "
      ApplicationModel new masterApplication resources first             - error
      ApplicationModel new ?: #masterApplication ?: #resources ?: #first - nil
     "
-
     "Modified: / 20-10-2010 / 10:45:21 / cg"
 !
 
@@ -8452,7 +8450,6 @@
     "
 ! !
 
-
 !Object methodsFor:'synchronized evaluation'!
 
 freeSynchronizationSemaphore
@@ -10165,16 +10162,14 @@
     ^ aVisitor visitObject:self with:aParameter
 ! !
 
-
-
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.783 2014-12-03 15:30:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.784 2014-12-29 23:52:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.783 2014-12-03 15:30:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.784 2014-12-29 23:52:52 cg Exp $'
 !
 
 version_SVN