Index: nano.tcl
==================================================================
--- nano.tcl
+++ nano.tcl
@@ -1283,36 +1283,21 @@
 proc ::nano::balance::toHuman {raw {decimals 3}} {
 	set humanUnit [normalizeUnitName _USER]
 	set humanUnitMultiplier [dict get $::nano::balance::_conversion $humanUnit]
 
 	if {$raw > [expr {$humanUnitMultiplier / 10000000}]} {
-		set balance [toUnit $raw $humanUnit 7]
-		set baseUnit $humanUnit
-		set balance [expr {entier($balance * 1000000)}]
-		set labels {u m "" K M G T}
-	} else {
-		set balance $raw
-		set baseUnit "raw"
-		set labels {"" K M G T}
-	}
-
-	set labelIdx -1
-	foreach label $labels {
-		incr $labelIdx
-
-		if {$balance < 1000} {
-			break
-		}
-
-		set balance [expr {$balance / 1000}]
-	}
-
-	set unit "${label}${baseUnit}"
-	set unit [normalizeUnitName $unit]
-
-	set balance [toUnit $raw $unit $decimals]
-	set balance [string trimright $balance "0."]
-
-	set result [list $balance $unit]
+		set baseUnit $humanUnit
+	} else {
+		set baseUnit "raw"
+	}
+
+	set balance [toUnit $raw $baseUnit $decimals]
+	set work [split $balance "."]
+	set leading  [lindex $work 0]
+	set trailing [string trimright [lindex $work 1] "0"]
+	set balance [join [list $leading $trailing] "."]
+	set balance [string trimright $balance "."]
+
+	set result [list $balance $baseUnit]
 
 	return $result
 }