--- bonobo-1.0.22/bonobo/bonobo-storage.c.orig	2008-05-30 15:39:28.000000000 -0300
+++ bonobo-1.0.22/bonobo/bonobo-storage.c	2008-05-30 15:39:31.000000000 -0300
@@ -175,6 +175,31 @@ BONOBO_X_TYPE_FUNC_FULL (BonoboStorage, 
 			 bonobo_storage);
 
 /**
+ * bonobo_storage_construct:
+ * @storage: The BonoboStorage object to be initialized
+ * @corba_storage: The CORBA object for the Bonobo_Storage interface.
+ *
+ * Initializes @storage using the CORBA interface object specified
+ * by @corba_storage.
+ *
+ * Returns: the initialized BonoboStorage object @storage.
+ */
+BonoboStorage *
+bonobo_storage_construct (BonoboStorage *storage, Bonobo_Storage corba_storage)
+{
+	g_return_val_if_fail (storage != NULL, NULL);
+	g_return_val_if_fail (BONOBO_IS_STORAGE (storage), NULL);
+	g_return_val_if_fail (corba_storage != CORBA_OBJECT_NIL, NULL);
+
+	bonobo_object_construct (
+		BONOBO_OBJECT (storage),
+		(CORBA_Object) corba_storage);
+
+	
+	return storage;
+}
+
+/**
  * bonobo_storage_open:
  * @driver: driver to use for opening.
  * @path: path where the base file resides