Index: openacs-4/packages/acs-subsite/www/admin/group-types/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/new.tcl,v
diff -u -N -r1.7 -r1.7.2.1
--- openacs-4/packages/acs-subsite/www/admin/group-types/new.tcl	19 Jan 2018 14:09:48 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/group-types/new.tcl	13 Mar 2019 11:22:05 -0000	1.7.2.1
@@ -64,8 +64,8 @@
         incr exception_count
         append exception_text \
             "<li>The specified object type, $object_type, already exists. " \
-            [ad_decode $safe_object_type $object_type "" \
-                 "Note that we converted the object type to \"$safe_object_type\" to ensure that the name would be safe for the database."] \
+            [expr {$safe_object_type eq $object_type ? "" :
+                   "Note that we converted the object type to \"$safe_object_type\" to ensure that the name would be safe for the database."}] \
             "Please back up and choose another.</li>"
     } else {
         # let's make sure the names are unique