diff --git a/modeline/battery-portable/battery-portable.lisp b/modeline/battery-portable/battery-portable.lisp
index 56f7e29..6e84668 100644
--- a/modeline/battery-portable/battery-portable.lisp
+++ b/modeline/battery-portable/battery-portable.lisp
@@ -209,7 +209,7 @@
                              (sysfs-int-field path "charge_now")))
                        (consumption ()
                          (or (sysfs-int-field path "power_now")
-                             (sysfs-int-field path "current_now")))
+                             (abs (sysfs-int-field path "current_now"))))
                        (capacity-native ()
                          (sysfs-int-field path "capacity"))
                        (capacity-calculate ()