getColor

[wil222]

Hi
I have an error while executing

functor
import
   QTk at 'x-oz://system/wp/QTk.ozf'
   System(show:Show)

define
V
{Show launchned}
I = {QTk.newImage photo(file:'image.gif')} in
{I getColor(1 1 V)}

end

The error raised is

%**************** Error: QTk module *********************
%
%** Error while executing a command
%
%* Object:
%* Operation: getColor(1 1 _)
%
%* Call Stack:
%* procedure 'Exception.raiseError' in PC = 139845544455584
%* procedure 'Lock' in file "/home/anthony/MozProj/mozart2/lib/main/base/Lock.oz", line 35,
column 7, PC = 139845679830631
%* procedure in file "test.oz", line 1, column 1, PC = 139845680683912
%* procedure 'RootManager,Pickle/fast' in file "/home/anthony/MozProj/mozart2/lib/main
/init/Module.oz", line 244, column 7, PC = 139845679638631
%* procedure in file "/home/anthony/MozProj/mozart2/lib/main/base/Base.oz", line 84, column 22, > PC = 139845679857828
%--------------------------------------------------------------

I dont have other errors while executing functions from QTk...

Did I do something wrong?