--- OpenCL/gengetinfo	2012/04/21 19:53:29	1.10
+++ OpenCL/gengetinfo	2012/04/24 22:45:38	1.11
@@ -193,7 +193,7 @@
 
          $XS2 .= " {\n";
          $XS2 .= "   NEED_SUCCESS (Retain$oclass, (value [i]));\n" unless $1 eq "Platform" || $1 eq "Device";
-         $XS2 .= "   PUSHs (NEW_MORTAL_OBJ (\"$type->[1]\", value [i]));\n";
+         $XS2 .= "   PUSH_CLOBJ (\"$type->[1]\", value [i]);\n";
          $XS2 .= " }\n";
       } else {
          $XS2 .= " PUSHs (sv_2mortal ($type->[1]));\n";