diff --git a/ase/stx/object.c b/ase/stx/object.c
index 1d8f6652..df9d228f 100644
--- a/ase/stx/object.c
+++ b/ase/stx/object.c
@@ -1,5 +1,5 @@
 /*
- * $Id: object.c,v 1.4 2005-05-08 11:16:07 bacon Exp $
+ * $Id: object.c,v 1.5 2005-05-08 13:45:51 bacon Exp $
  */
 
 #include <xp/stx/object.h>
@@ -57,3 +57,12 @@ xp_stx_word_t xp_stx_alloc_string_object (
 
 	return idx;
 }
+
+xp_stx_word_t xp_stx_instantiate_symbol (
+	xp_stx_t* stx, xp_stx_char_t* str, xp_stx_word_t len)
+{
+	xp_stx_word_t x;
+
+	x = xp_stx_alloc_string_object (stx, str, len,);
+	if (x 
+}