Index: TODO
===================================================================
diff -u -rfcd388b1a6745e75ba21d123ebaf8c280d0094d3 -rb6041f25a964a06f528ccd27ad62fa95f95a931f
--- TODO	(.../TODO)	(revision fcd388b1a6745e75ba21d123ebaf8c280d0094d3)
+++ TODO	(.../TODO)	(revision b6041f25a964a06f528ccd27ad62fa95f95a931f)
@@ -2366,6 +2366,7 @@
   * flag init_called already before init is called, not afterwards
     (a call to "configure" within init does not clear the already
     set instance variables)
+- extend regression test
 
 TODO:
 
Index: tests/parameters.test
===================================================================
diff -u -r84ca9b390e213541f4cd2d3515398710c221cdb1 -rb6041f25a964a06f528ccd27ad62fa95f95a931f
--- tests/parameters.test	(.../parameters.test)	(revision 84ca9b390e213541f4cd2d3515398710c221cdb1)
+++ tests/parameters.test	(.../parameters.test)	(revision b6041f25a964a06f528ccd27ad62fa95f95a931f)
@@ -807,6 +807,29 @@
   ? {b s3} "::b"
 }
 
+#
+# Test call of configure within constructor
+#
+Test case parameter-alias-default {
+
+  Class create C {
+    :attribute {a ""}
+    :attribute {b 1}
+
+    :method init {} {
+      :configure -b 1
+    }
+    :create c1
+    :create c2 -a 0
+  }
+
+  ? {::c1 eval {set :a}} ""
+  ? {::c1 eval {set :b}} 1
+  ? {::c2 eval {set :a}} 0
+  ? {::c2 eval {set :b}} 1
+}
+
+
 #######################################################
 # testing object types in object parameters
 #######################################################