There's an #ifdef/#else condition in TableMatrix.xs and it could be that you're entering the inappropriate block. Try replacing the existing version of TableMatrix.xs with this rendition (which removes the option of the first block):

#define PERL_NO_GET_CONTEXT
#include <EXTERN.h>
#include <perl.h>
#include <XSUB.h>

#undef MAX
#undef MIN

#include "tkGlue.def"

#include "pTk/tkPort.h"
#include "pTk/tkTable.h"
#include "pTk/tkInt.h"
#include "pTk/tixPort.h"
#include "pTk/tixInt.h"
#include "tkGlue.h"
#include "tkGlue.m"
#include "pTk/tkVMacro.h"


/* perltk TableMatrix's replacement for TCL_unsetVar. deletes an eleme
+nt in a hash */
EXTERN void    tkTableUnsetElement _ANSI_ARGS_((Var hashEntry, char * 
+key)){
    int len;
    dTHX;    
    len = strlen(key);
    hv_delete( (HV*) hashEntry, key, len, G_DISCARD);
}


DECLARE_VTABLES;

MODULE = Tk::TableMatrix    PACKAGE = Tk

PROTOTYPES: DISABLE


void
tablematrix(...)
CODE:
 {
  XSRETURN(XSTkCommand(cv,1,Tk_TableObjCmd,items,&ST(0)));
 }
 
BOOT:
 {
  IMPORT_VTABLES;
 }
[download]

Cheers,
Rob