diff --git a/mc1322x-load.pl b/mc1322x-load.pl
index 8bd2b8b5b..45c13b3a8 100755
--- a/mc1322x-load.pl
+++ b/mc1322x-load.pl
@@ -110,8 +110,10 @@ print ",\n";
 $ob->write(@ARGV);
 $ob->write(',');
 
+my $c; my $count;
 while(1) {
-    print $ob->input;
+    ($count, $c) = $ob->read(1);
+    print $c if ($count != 0);
 }
 
 $ob -> close or die "Close failed: $!\n";