Index: TODO
===================================================================
diff -u -r4b78042d08af7f3200d51f4033d5164c949f332d -r922c0ab9c756265f0793bda2cc69d50742c5bf88
--- TODO	(.../TODO)	(revision 4b78042d08af7f3200d51f4033d5164c949f332d)
+++ TODO	(.../TODO)	(revision 922c0ab9c756265f0793bda2cc69d50742c5bf88)
@@ -5855,6 +5855,8 @@
 proc =foo {a b c args} { puts foo }
 catch {={*}[list foo 1 2 3 4 5 6]} msg; puts msg=$msg
 
+- Added Rosetta example: https://rosettacode.org/wiki/Polymorphic_copy#Tcl
+
 ========================================================================
 TODO:
 
@@ -5876,7 +5878,6 @@
 - Add Rosetta examples:
 
   (for the sake of completeness)
-  https://rosettacode.org/wiki/Polymorphic_copy#Tcl
   https://rosettacode.org/wiki/Inheritance/Single
   https://rosettacode.org/wiki/Inheritance/Multiple#Tcl