Index: tests/nsf-cmd.test
===================================================================
diff -u -r47f388cda74f1b4656389d4129b96435034ac4a4 -red5cc784dfa9e971fd124701a7bdfb9d609512a5
--- tests/nsf-cmd.test	(.../nsf-cmd.test)	(revision 47f388cda74f1b4656389d4129b96435034ac4a4)
+++ tests/nsf-cmd.test	(.../nsf-cmd.test)	(revision ed5cc784dfa9e971fd124701a7bdfb9d609512a5)
@@ -511,7 +511,12 @@
 
 }
 
-nx::test case nsf-proc-rename {
+# to-dos:
+# - basic rename-delete
+# - rename chain
+# - interp hide/expose
+
+nx::test case nsf-proc-rename-redefine {
   namespace eval ::ns1 {}
   
   nsf::proc ns1::foo {
@@ -531,7 +536,30 @@
   namespace delete ::ns1
 }
 
+nx::test case nsf-proc-rename-redefine-call {
+  namespace eval ::ns1 {}
+  
+  nsf::proc ns1::foo {
+    {-x:required}
+  } { return 1-$x }
 
+  ? {ns1::foo -x ok} 1-ok
+  
+  rename ns1::foo ns1::foo.orig
+
+  nsf::proc ns1::foo {
+    {-x:required}
+  } { return 2-$x }
+
+  ? {ns1::foo -x ok} 2-ok
+
+  ? {ns1::foo.orig -x ok} 2-ok; # should be 1-ok!
+
+  namespace delete ::ns1
+}
+
+
+
 #
 # Local variables:
 #    mode: tcl