diff --git a/VERSION b/VERSION
index 2a42f81..faca1f6 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-1.5.274
+1.5.275
diff --git a/tcltk/tclnetgen.c b/tcltk/tclnetgen.c
index ddca807..9b6754a 100644
--- a/tcltk/tclnetgen.c
+++ b/tcltk/tclnetgen.c
@@ -1595,8 +1595,7 @@ _netgen_model(ClientData clientData,
       return result;
 
    if (objc == 3) {
-      model = Tcl_GetString(objv[2]);
-      nports = NumberOfPorts(model, fnum);
+      nports = NumberOfPorts(tp->name, fnum);
 
       if (Tcl_GetIndexFromObj(interp, objv[2], (CONST84 char **)modelclasses,
 		"class", 0, &index) != TCL_OK) {