Index: tests/alias.test
===================================================================
diff -u -r3cc93845be8bba214f09b9c6ec29e48de99175ff -r7d197d8e8a9ad6229c2aa8a11111118f5cab26b6
--- tests/alias.test	(.../alias.test)	(revision 3cc93845be8bba214f09b9c6ec29e48de99175ff)
+++ tests/alias.test	(.../alias.test)	(revision 7d197d8e8a9ad6229c2aa8a11111118f5cab26b6)
@@ -671,7 +671,10 @@
 # Testing aliases to objects and reference counting.
 # Check the effects via MEM_COUNT...
 #
-nx::Test case refcount-object-alias-recreate {
+nx::Test case refcount-object-alias-recreate1 {
+  #
+  # alias recreate with the same object
+  #
 
   nx::Object create ::x
   nx::Object create ::o {
@@ -682,6 +685,20 @@
   }
 }
 
+nx::Test case refcount-object-alias-recreate2 {
+  #
+  # alias recreate with a proc
+  #
+  nx::Object create ::x
+  ::proc ::y {} {}
+  nx::Object create ::o {
+    :alias X ::x
+    ? {o info method definition X} "::o protected alias X ::x"
+    :alias X ::y
+    ? {o info method definition X} "::o protected alias X ::y"
+  }
+}
+
 nx::Test case refount-destroy-delete1 {
   nx::Object create ::x
   nx::Object create ::o {:alias X ::x}