Index: include/macros/error.pir
===================================================================
--- include/macros/error.pir	(revision 22374)
+++ include/macros/error.pir	(working copy)
@@ -16,7 +16,7 @@
   .sym string _errmsgs
   .sym pmc _errargp
 
-  _errargp = new Array
+  _errargp = new 'Array'
   _errargp = 1
   _errargp[0] = .A
 
@@ -28,7 +28,7 @@
   .sym string _errmsgs
   .sym pmc _errargp
 
-  _errargp = new Array
+  _errargp = new 'Array'
   _errargp = 2
   _errargp[0] = .A
   _errargp[1] = .B
Index: include/macros/standard.pir
===================================================================
--- include/macros/standard.pir	(revision 22374)
+++ include/macros/standard.pir	(working copy)
@@ -33,7 +33,7 @@
 .macro CONSTANT (P)
   .sym Boolean _const
 
-  _const = new Boolean
+  _const = new 'Boolean'
   _const = 1
 
   setprop .P, "constant", _const
Index: cl.pir
===================================================================
--- cl.pir	(revision 22374)
+++ cl.pir	(working copy)
@@ -313,7 +313,7 @@
   if k < 0 goto BOUNDS
 
   sstr = str[k]
-  retval = new "LispString"
+  retval = new 'LispString'
   retval = sstr
   goto DONE
 
@@ -478,7 +478,7 @@
    goto MAKE_SYMBOL
 
 MAKE_SYMBOL:
-   garg = new Array
+   garg = new 'Array'
    garg = 2
    garg[0] = prefix
    garg[1] = suffix
@@ -625,9 +625,9 @@
     .CDR(body, args)                             # The form to evaluate
 
     .local pmc keyvals
-    keyvals = new ResizablePMCArray              # List for holding init values
+    keyvals = new 'ResizablePMCArray'              # List for holding init values
     .local pmc dynvars
-    dynvars = new ResizablePMCArray              # List for holding dynamic vars
+    dynvars = new 'ResizablePMCArray'              # List for holding dynamic vars
 
     # for exception handling, currently broken
     .local pmc error
@@ -1097,7 +1097,7 @@
 
    size = llen - 11                             # Size of the overflow array
 
-   P3 = new Array                               # Allocate overflow array
+   P3 = new 'Array'                             # Allocate overflow array
    P3 = size
 
   .local pmc elem
Index: types.pir
===================================================================
--- types.pir	(revision 22374)
+++ types.pir	(working copy)
@@ -73,7 +73,7 @@
 .sub __get_string :method
 
     .local pmc retv
-    retv = new String
+    retv = new 'String'
     retv = "("
 
     .local string car
@@ -165,16 +165,16 @@
     defined test, name
     if test goto NAMED_FUNCTION
 
-    name = new String
+    name = new 'String'
     name = "ANONYMOUS"
 
 NAMED_FUNCTION:
-    retv = new String
+    retv = new 'String'
     retv = "#<FUNCTION "
 
     concat retv, retv, name
 
-    tmps = new String
+    tmps = new 'String'
     tmps = ">"
     concat retv, retv, tmps
 
@@ -186,7 +186,7 @@
 .sub __get_string :method
     .local pmc name
 
-     name = new String
+     name = new 'String'
      name = "#S(HASH-TABLE)"
 
     .return(name)
@@ -209,10 +209,10 @@
 .sub __init :method
     .local pmc value
 
-    value = new Hash
+    value = new 'Hash'
     setattribute self, "external", value
 
-    value = new Hash
+    value = new 'Hash'
     setattribute self, "internal", value
 .end
 
@@ -256,7 +256,7 @@
     goto PUSH_SYMBOL
 
 CREATE_STACK:
-    stack = new ResizablePMCArray
+    stack = new 'ResizablePMCArray'
     hash[symname] = stack
     goto PUSH_SYMBOL
 
@@ -311,7 +311,7 @@
     .local pmc val
     .local pmc i
 
-    exports = new ResizablePMCArray
+    exports = new 'ResizablePMCArray'
     hash = getattribute self,  "external"
 
     iter i, hash
@@ -382,7 +382,7 @@
 
     symbol = _SYMBOL(name)
 
-    stack = new ResizablePMCArray
+    stack = new 'ResizablePMCArray'
     push stack, symbol
     hash[name] = stack
 
@@ -426,10 +426,10 @@
     name = getattribute self, "name"
 
     .local pmc retv
-    retv = new String
+    retv = new 'String'
 
     .local pmc tmps
-    tmps = new String
+    tmps = new 'String'
     tmps = "#<PACKAGE "
     concat retv, tmps, name
 
@@ -474,7 +474,7 @@
     .local pmc table
     .local pmc case
 
-     table = new Array
+     table = new 'Array'
      table = 128
 
      table[0]  = INVALID_CHAR
@@ -606,7 +606,7 @@
      table[126] = CONSTITUENT_CHAR           # ~
      table[127] = CONSTITUENT_CHAR           # Rubout
 
-     case = new Boolean
+     case = new 'Boolean'
      case = 0
 
      setattribute self, "table", table
@@ -618,7 +618,7 @@
     .local pmc tmps
     .local pmc retv
 
-     retv = new String
+     retv = new 'String'
      retv = "#<READTABLE 0x????????>"
 
     .return(retv)
@@ -643,7 +643,7 @@
 
 .sub __get_string :method
     .local pmc name
-    name = new String
+    name = new 'String'
     name = "#<IO STREAM>"
 
     .return(name)
Index: read.pir
===================================================================
--- read.pir	(revision 22374)
+++ read.pir	(working copy)
@@ -187,7 +187,7 @@
 
   .local pmc e
 
-  e = new Exception
+  e = new 'Exception'
 
   e["_message"] = mesg