diff --git a/ChangeLog b/ChangeLog
index 7888293..42598e8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2018-08-05  Jay Berkenbilt  <ejb@ql.org>
+
+	* Bug fix: infinite loop on progress reporting for very small
+	files. Fixes #230.
+
 2018-08-04  Jay Berkenbilt  <ejb@ql.org>
 
 	* Performance fix: optimize page merging operation to avoid
diff --git a/libqpdf/QPDFWriter.cc b/libqpdf/QPDFWriter.cc
index 447b662..30ba6f1 100644
--- a/libqpdf/QPDFWriter.cc
+++ b/libqpdf/QPDFWriter.cc
@@ -3357,9 +3357,10 @@ QPDFWriter::indicateProgress(bool decrement, bool finished)
                                 this->m->events_expected)));
         this->m->progress_reporter->reportProgress(percentage);
     }
+    int increment = std::max(1, (this->m->events_expected / 100));
     while (this->m->events_seen >= this->m->next_progress_report)
     {
-        this->m->next_progress_report += (this->m->events_expected / 100);
+        this->m->next_progress_report += increment;
     }
 }
 
diff --git a/qpdf/qtest/qpdf.test b/qpdf/qtest/qpdf.test
index 603bbe0..bab7ec1 100644
--- a/qpdf/qtest/qpdf.test
+++ b/qpdf/qtest/qpdf.test
@@ -927,6 +927,17 @@ $td->runtest("don't overwrite self",
 
 show_ntests();
 # ----------
+$td->notify("--- Progress reporting ---");
+$n_tests += 1;
+
+$td->runtest("progress report on small file",
+             {$td->COMMAND => "qpdf --progress minimal.pdf a.pdf",
+                  $td->FILTER => "perl filter-progress.pl"},
+             {$td->FILE => "small-progress.out", $td->EXIT_STATUS => 0},
+             $td->NORMALIZE_NEWLINES);
+
+show_ntests();
+# ----------
 $td->notify("--- Type checks ---");
 $n_tests += 4;
 # Whenever object-types.pdf is edited, object-types-os.pdf should be
diff --git a/qpdf/qtest/qpdf/small-progress.out b/qpdf/qtest/qpdf/small-progress.out
new file mode 100644
index 0000000..5845dec
--- /dev/null
+++ b/qpdf/qtest/qpdf/small-progress.out
@@ -0,0 +1,3 @@
+qpdf: a.pdf: write progress: 0%
+....other write progress....
+qpdf: a.pdf: write progress: 100%