diff --git a/packages/dbi/ResultSet.st b/packages/dbi/ResultSet.st
index e20e824..7dd2af8 100644
--- a/packages/dbi/ResultSet.st
+++ b/packages/dbi/ResultSet.st
@@ -147,11 +147,13 @@ case I only hold the number of rows affected.'>
printOn: aStream [
"Print a representation of the receiver on aStream."
<category: 'printing'>
- self rows do:
- [:row |
- row printOn: aStream.
- aStream nl]
- ]
+ self isSelect ifTrue: [
+ self rows do:
+ [:row |
+ row printOn: aStream.
+ aStream nl]
+ ]
+ ]
statement [
"Return the Statement, if any, that generated the result set."
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
