--- a/WindowBuilder.st	Sun May 27 15:01:50 2018 +0200
+++ b/WindowBuilder.st	Thu May 31 08:45:02 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -743,6 +745,17 @@
     "Modified: 28.7.1997 / 12:54:06 / cg"
 !
 
+valueAspectFor:aKey
+    "helper (common code) to generate a valueHolder aspect if required.
+     If no binding exists for aKey, a valueHolder holding nil is
+     created and added to the bindings.
+     Otherwise, the existing binding is returned."
+
+    ^ self valueAspectFor:aKey initialValue:nil
+
+    "Created: / 31-05-2018 / 08:43:56 / Claus Gittinger"
+!
+
 valueAspectFor:aKey computeInitialValueWith:initialValueBlock
     "helper (common code) to generate a valueHolder aspect if required.
      If no binding exists for aKey, a valueHolder holding initialValue is