Index: library/xotcl/apps/scripts/soccerClub2.tcl
===================================================================
diff -u -rf3b7952aabc9e4f9079febd1f5b7f5fb833fd50c -rf20a7f81bcae20a40c4990afd431615ca1914c51
--- library/xotcl/apps/scripts/soccerClub2.tcl	(.../soccerClub2.tcl)	(revision f3b7952aabc9e4f9079febd1f5b7f5fb833fd50c)
+++ library/xotcl/apps/scripts/soccerClub2.tcl	(.../soccerClub2.tcl)	(revision f20a7f81bcae20a40c4990afd431615ca1914c51)
@@ -68,7 +68,7 @@
     # But we only remove matching playernames of type "Player". We do
     # not want to remove another club member type who has the same
     # name.
-    if {[$player info is type Player] && [$player name] eq $playername} {
+    if {[$player info has type Player] && [$player name] eq $playername} {
       # We simply 'move' the player object to the destination team.
       # Again we use a unique autoname in the new scope
       $player move ${destinationTeam}::[$destinationTeam autoname player%02d]
@@ -85,7 +85,7 @@
 SoccerTeam method printPlayers {} {
   puts "Players of ${.name}:"
   foreach m [.info children] {
-    if {[$m info is type Player]} {puts "  [$m name]"}
+    if {[$m info has type Player]} {puts "  [$m name]"}
   }
 }