pass inlet number around instead of binding it to the selector - this time for real

svn path=/trunk/externals/tclpd/; revision=12173

1 files changed, 1 insertions, 1 deletions

diff --git a/pdlib.tcl b/pdlib.tcl
index 0a22957..c20f822 100644
--- a/pdlib.tcl
+++ b/pdlib.tcl
@@ -110,7 +110,7 @@ namespace eval ::pd {
         # class level dispatcher (sort of class constructor)
         proc ::$classname {self args} "
             if \$::verbose {::pd::post \[info level 0\]}
-            ::pd::call_classmethod $classname \$self 0 constructor {*}\$args
+            ::${classname}_constructor \$self {*}\$args
             # object dispatcher
             proc ::\$self {inlet selector args} \"
              if \\\$::verbose {::pd::post \\\[info level 0\\\]}