diff --git a/vvp/compile.cc b/vvp/compile.cc
index b95d14f1e..0974c2752 100644
--- a/vvp/compile.cc
+++ b/vvp/compile.cc
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT)
-#ident "$Id: compile.cc,v 1.72 2001/06/07 03:09:03 steve Exp $"
+#ident "$Id: compile.cc,v 1.73 2001/06/10 16:47:49 steve Exp $"
 #endif
 
 # include  "arith.h"
@@ -1124,6 +1124,7 @@ void compile_variable(char*label, char*name, int msb, int lsb,
 	/* Make the vpiHandle for the reg. */
       vpiHandle obj = vpip_make_reg(name, msb, lsb, signed_flag, fdx);
       compile_vpi_symbol(label, obj);
+      vpip_attach_to_current_scope(obj);
 
       free(label);
 }
@@ -1205,6 +1206,7 @@ void compile_net(char*label, char*name, int msb, int lsb, bool signed_flag,
 	/* Make the vpiHandle for the reg. */
       vpiHandle obj = vpip_make_net(name, msb, lsb, signed_flag, fdx);
       compile_vpi_symbol(label, obj);
+      vpip_attach_to_current_scope(obj);
 
       free(label);
       free(argv);
@@ -1299,6 +1301,9 @@ vvp_ipoint_t debug_lookup_functor(const char*name)
 
 /*
  * $Log: compile.cc,v $
+ * Revision 1.73  2001/06/10 16:47:49  steve
+ *  support scan of scope from VPI.
+ *
  * Revision 1.72  2001/06/07 03:09:03  steve
  *  Implement .arith/sub subtraction.
  *
diff --git a/vvp/vpi_priv.cc b/vvp/vpi_priv.cc
index 7ce7dcd78..5f1d5cb9e 100644
--- a/vvp/vpi_priv.cc
+++ b/vvp/vpi_priv.cc
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT)
-#ident "$Id: vpi_priv.cc,v 1.3 2001/04/03 03:46:14 steve Exp $"
+#ident "$Id: vpi_priv.cc,v 1.4 2001/06/10 16:47:49 steve Exp $"
 #endif
 
 # include  "vpi_priv.h"
@@ -44,7 +44,7 @@ static int vpip_get_global(int property)
       switch (property) {
 
 	  case vpiTimePrecision:
-	    fprintf(stderr, "vpi warning: vpiTimePrecision not supported\n");
+	    fprintf(stderr, "vpi Sorry: vpiTimePrecision not supported\n");
 	    return 0;
 
 	  default:
@@ -145,7 +145,7 @@ void vpi_printf(const char*fmt, ...)
 
 vpiHandle vpi_register_cb(p_cb_data data)
 {
-      assert(0);
+      fprintf(stderr, "vpi Sorry: vpi_register_cb not supported\n");
       return 0;
 }
 
@@ -170,6 +170,9 @@ void vpi_sim_control(int operation, ...)
 
 /*
  * $Log: vpi_priv.cc,v $
+ * Revision 1.4  2001/06/10 16:47:49  steve
+ *  support scan of scope from VPI.
+ *
  * Revision 1.3  2001/04/03 03:46:14  steve
  *  VPI access time as a decimal string, and
  *  stub vpi access to the scopes.
diff --git a/vvp/vpi_scope.cc b/vvp/vpi_scope.cc
index 2e6c5b0ce..535d241a2 100644
--- a/vvp/vpi_scope.cc
+++ b/vvp/vpi_scope.cc
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT)
-#ident "$Id: vpi_scope.cc,v 1.4 2001/04/18 04:21:23 steve Exp $"
+#ident "$Id: vpi_scope.cc,v 1.5 2001/06/10 16:47:49 steve Exp $"
 #endif
 
 # include  "compile.h"
@@ -54,7 +54,7 @@ static vpiHandle module_iter(int code, vpiHandle obj)
 
       switch (code) {
 	  case vpiInternalScope:
-	    return 0;
+	    return vpip_make_iterator(ref->nintern, ref->intern);
       }
       return 0;
 }
@@ -134,6 +134,9 @@ void vpip_attach_to_current_scope(vpiHandle obj)
 
 /*
  * $Log: vpi_scope.cc,v $
+ * Revision 1.5  2001/06/10 16:47:49  steve
+ *  support scan of scope from VPI.
+ *
  * Revision 1.4  2001/04/18 04:21:23  steve
  *  Put threads into scopes.
  *