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
 #######################################################