Index: officer.tcl
==================================================================
--- officer.tcl
+++ officer.tcl
@@ -210,22 +210,20 @@
     method extend {path arguments action} {
 	if {[llength $path] == 1} {
 	    # Reached the bottom of the recursion.
 	    # Generate the private handling arguments and action.
 	    set cmd [lindex $path 0]
-	    my Private $cmd $arguments $action
-	    return
+	    return [my Private $cmd $arguments $action]
 	}
 
 	# Recurse, creating the intermediate officers as needed.
 	set path [lassign $path cmd]
 	if {![my has $cmd]} {
 	    my Officer $cmd {}
 	}
 
 	[my lookup $cmd] extend $path $arguments $action
-	return
     }
 
     # # ## ### ##### ######## #############
     ## Implementation of the action specification language.
 
@@ -288,11 +286,11 @@
 	$handler ehandler $myhandler
 
 	lappend mychildren $handler
 
 	my Def $name $handler
-	return
+	return $handler
     }
 
     method Def {name handler} {
 	# Make an action known to the dispatcher.
 	dict set mymap last $name