Index: openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl,v
diff -u -r1.10.2.3 -r1.10.2.4
--- openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl	4 Aug 2020 09:35:16 -0000	1.10.2.3
+++ openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl	27 Sep 2020 18:07:13 -0000	1.10.2.4
@@ -1641,13 +1641,13 @@
 #	Identity function.
 #
 # Arguments:
-#	a	arbitrary argument
+#	arg	arbitrary argument
 #
 # Results:
-#	$a
+#	$arg
 
-proc sgml::identity a {
-    return $a
+proc sgml::identity arg {
+    return $arg
 }
 
 # sgml::Error --