Index: library/nx/nx.tcl =================================================================== diff -u -N -r31adfd571eea2b09a742ab6cd06910c037a70be6 -rfaa3eeb74515d10278bb6f055ecb374791211248 --- library/nx/nx.tcl (.../nx.tcl) (revision 31adfd571eea2b09a742ab6cd06910c037a70be6) +++ library/nx/nx.tcl (.../nx.tcl) (revision faa3eeb74515d10278bb6f055ecb374791211248) @@ -1429,6 +1429,7 @@ } ObjectParameterSlot public method onError {cmd msg} { + puts stderr "==== DEBUG AppVeyor behavior <$cmd> <$msg>" if {[string match "%1 requires argument*" $msg]} { set template {wrong # args: use \"$cmd [join $methods |]\"} } elseif {[string match "*unknown for slot*" $msg]} { @@ -1450,9 +1451,9 @@ ObjectParameterSlot protected method makeForwarder {} { # # Build forwarder from the source object class ($domain) to the slot - # to delegate read and update operations + # to delegate read and update operations. # - # intended to be called on RelationSlot or VariableSlot + # This method is intended to be called on RelationSlot or VariableSlot. # if {![info exists :forwardername]} { set :forwardername ${:methodname} Index: tests/object-system.test =================================================================== diff -u -N -rff219acd378ce4eb7ed9f0864d66fa3e4499393a -rfaa3eeb74515d10278bb6f055ecb374791211248 --- tests/object-system.test (.../object-system.test) (revision ff219acd378ce4eb7ed9f0864d66fa3e4499393a) +++ tests/object-system.test (.../object-system.test) (revision faa3eeb74515d10278bb6f055ecb374791211248) @@ -245,7 +245,7 @@ ? {C create c2 {:object method foo {} {;}}} ::c2 # -# check low level method creation on classes, and check C-level +# check low-level method creation on classes, and check C-level # "-flag=value" handling # nsf::method::create ::C m1 {} {;}