Index: /trunk/Ohana/src/perl/src/wfi.keywords
===================================================================
--- /trunk/Ohana/src/perl/src/wfi.keywords	(revision 95)
+++ /trunk/Ohana/src/perl/src/wfi.keywords	(revision 96)
@@ -62,5 +62,5 @@
 for ($i = 0; $i < $Nccd; $i++) {
     @chiphead = ();
-    @header = `ftable -X $i $fitsfile`;
+    @header = `fhead -x $i $fitsfile`;
     foreach $line (@header) {
 	if ($line =~ /HIERARCH ESO DET CHIP\d INDEX=/) {