diff --git a/acc_user.h b/acc_user.h
index f699fb8df..6ce4ab3e3 100644
--- a/acc_user.h
+++ b/acc_user.h
@@ -19,7 +19,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #ifdef HAVE_CVS_IDENT
-#ident "$Id: acc_user.h,v 1.14 2003/05/29 02:21:45 steve Exp $"
+#ident "$Id: acc_user.h,v 1.15 2003/05/29 02:35:41 steve Exp $"
 #endif
 
 /*
@@ -59,6 +59,8 @@ typedef struct __vpiHandle *handle;
 #define accReg       30
 #define accStringParam 204
 #define accParameter   220
+#define accTopModule      224
+#define accModuleInstance 226
 #define accIntegerVar  281
 #define accIntVar      281
 #define accScalar    300
@@ -245,6 +247,9 @@ EXTERN_C_END
 
 /*
  * $Log: acc_user.h,v $
+ * Revision 1.15  2003/05/29 02:35:41  steve
+ *  acc_fetch_type supports module.
+ *
  * Revision 1.14  2003/05/29 02:21:45  steve
  *  Implement acc_fetch_defname and its infrastructure in vvp.
  *
diff --git a/libveriuser/a_fetch_type.c b/libveriuser/a_fetch_type.c
index 02271e8b0..19bfb94ee 100644
--- a/libveriuser/a_fetch_type.c
+++ b/libveriuser/a_fetch_type.c
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #ifdef HAVE_CVS_IDENT
-#ident "$Id: a_fetch_type.c,v 1.4 2003/04/24 18:57:06 steve Exp $"
+#ident "$Id: a_fetch_type.c,v 1.5 2003/05/29 02:35:41 steve Exp $"
 #endif
 
 # include  <acc_user.h>
@@ -54,6 +54,9 @@ PLI_INT32 acc_fetch_type(handle obj)
 	  case vpiIntegerVar:
 	    return accIntegerVar;
 
+	  case vpiModule:
+	    return accModule;
+
 	  default:
 	    vpi_printf("acc_fetch_type: vpiType %d is what accType?\n",
 		       vpi_get(vpiType, obj));
@@ -76,6 +79,13 @@ PLI_INT32 acc_fetch_fulltype(handle obj)
 	  case vpiIntegerVar:
 	    return accIntegerVar;
 
+	  case vpiModule:
+	    if (!vpi_handle(vpiScope, obj))
+		return accTopModule;
+	    else
+		return accModuleInstance;
+	    // FIXME accCellInstance
+
 	  default:
 	    vpi_printf("acc_fetch_fulltype: vpiType %d is what accType?\n",
 		       vpi_get(vpiType, obj));
@@ -85,6 +95,9 @@ PLI_INT32 acc_fetch_fulltype(handle obj)
 
 /*
  * $Log: a_fetch_type.c,v $
+ * Revision 1.5  2003/05/29 02:35:41  steve
+ *  acc_fetch_type supports module.
+ *
  * Revision 1.4  2003/04/24 18:57:06  steve
  *  Add acc_fetch_fulltype function.
  *