Index: nano.tcl
==================================================================
--- nano.tcl
+++ nano.tcl
@@ -371,11 +371,11 @@
 		}
 	}
 
 	set blockJSONFields {
 		type account source destination previous representative balance
-		link link_as_account _blockHash _workHash signature
+		link link_as_account _blockHash _workHash signature _comment
 	}
 
 	set blockJSONEntries [lmap field $blockJSONFields {
 		if {![info exists block($field)]} {
 			continue
@@ -556,10 +556,11 @@
 		"previous" $block(previous) \
 		"representative" $block(representative) \
 		"balance" $block(balance) \
 		"link_as_account" $block(to) \
 		"_workHash" $block(previous) \
+		"_comment" "Send $block(amount) raw from $block(from) to $block(to)" \
 	]
 
 	if {[info exists block(signKey)]} {
 		dict set blockDict signKey $block(signKey)
 	}
@@ -593,10 +594,11 @@
 		"previous" $block(previous) \
 		"representative" $block(representative) \
 		"balance" $block(balance) \
 		"link" $block(sourceBlock) \
 		"_workHash" $block(_workHash) \
+		"_comment" "Receive $block(amount) raw on $block(to) from hash $block(sourceBlock)" \
 	]
 
 	if {[info exists block(signKey)]} {
 		dict set blockDict signKey $block(signKey)
 	}