diff --git a/CHANGES.current b/CHANGES.current
index 685f375af..645d45c81 100644
--- a/CHANGES.current
+++ b/CHANGES.current
@@ -1,6 +1,11 @@
 Version 1.3.29 (March 8, 2006)
 ==============================
 
+03/10/2006: mutandiz
+	    [allegrocl]
+	    Fix bug in C wrapper generation introduced by last allegrocl
+	    commit.
+
 03/10/2006: wsfulton
             Fix #1444949 - configure does not honor --program-prefix.
             Removed non-standard configure option --with-release-suffix. Fix the autoconf standard
diff --git a/Source/Modules/allegrocl.cxx b/Source/Modules/allegrocl.cxx
index 1dd0e4a07..560f0040a 100644
--- a/Source/Modules/allegrocl.cxx
+++ b/Source/Modules/allegrocl.cxx
@@ -2273,7 +2273,7 @@ int ALLEGROCL :: emit_defun(Node *n, File *f_cl) {
   else
   {
     Printf(f_cl, "(swig-defun (\"%s\" \"%s\")\n", funcname,
-	   Generate_Wrapper ? mangled_name : "");
+	   Generate_Wrapper ? mangled_name : funcname);
   }
 
   //////////////////////////////////////