--- a/ApplicationModel.st	Mon May 07 14:11:50 2012 +0200
+++ b/ApplicationModel.st	Fri May 11 16:28:48 2012 +0200
@@ -1256,6 +1256,7 @@
     "Modified: / 7.9.1998 / 23:37:00 / cg"
 ! !
 
+
 !ApplicationModel methodsFor:'binding access'!
 
 actionFor:aKey
@@ -1959,13 +1960,6 @@
 
 aspectAdaptorFor: aSymbolOrCollectionOfThose on:aValueModel
 
-    "Return an AspectAdaptor for given aspects on given value model. 
-
-     Aspects (aSymbolOrCollectionOfThose) may be a sigle aspect
-     or collection of aspects. In that case, a chain of AspectAdaptor
-     is build to access the value using given 'path'"
-
-
     | adaptor path |
 
     path := aSymbolOrCollectionOfThose isSymbol 
@@ -1980,16 +1974,14 @@
 
     "Created: / 09-03-2010 / 08:44:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 17-03-2010 / 19:28:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (comment): / 01-09-2011 / 10:30:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 aspectAt:aSymbol ifAbsentPut:aBlock
 
-    builder isNil ifTrue:[self createBuilder].
+    builder ifNil:[self createBuilder].
     ^builder bindings at: aSymbol ifAbsentPut: aBlock
 
     "Created: / 09-03-2010 / 08:37:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 18-11-2011 / 14:08:11 / cg"
 !
 
 registerInterestIn:aValueModel using:aSelectorOrArray
@@ -3939,11 +3931,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.329 2012-03-02 14:57:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.330 2012-05-11 14:28:48 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.329 2012-03-02 14:57:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.330 2012-05-11 14:28:48 vrany Exp $'
 ! !
 
 ApplicationModel initialize!