oo: Fix super invocation

An implicit concat was being done on the arguments to 'super', so
arguments containing spaces were mangled.

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 1 insertions, 1 deletions

diff --git a/oo.tcl b/oo.tcl
index c31c481..54c10a5 100644
--- a/oo.tcl
+++ b/oo.tcl
@@ -96,5 +96,5 @@ proc class {classname {baseclasses {}} classvars} {
 # Note that this will only call the last baseclass given
 proc super {method args} {
 	upvar self self
-	uplevel 2 [$self baseclass] $method {*}$args
+	uplevel 2 [list [$self baseclass] $method {*}$args]
 }