--- src/bruch.c	2007-12-06 11:30:00.000000000 -0500
+++ b/bruch.c	2013-10-22 08:37:43.000000000 -0400
@@ -975,14 +975,16 @@
     ggterg = ggt_i(S_B_UI(bruch),S_B_OI(bruch));
 
     if (ggterg == S_B_UI(bruch)) {
+        INT tmp = S_B_OI(bruch);
         freeself_bruch(bruch);
-        M_I_I(S_B_OI(bruch) / ggterg,bruch);
+        M_I_I(tmp / ggterg,bruch);
         goto ende;
         }
 
     if (-ggterg == S_B_UI(bruch)) {
+        INT tmp = S_B_OI(bruch);
         freeself_bruch(bruch);
-        M_I_I(- S_B_OI(bruch) / ggterg,bruch);
+        M_I_I(- tmp / ggterg,bruch);
         goto ende;
         }
 
@@ -1032,12 +1034,14 @@
 
     if (S_O_K(S_B_U(bruch)) == INTEGER)
         if (S_B_UI(bruch) == 1) { 
+            INT tmp = S_B_OI(bruch);
             freeself_bruch(bruch);
-            M_I_I(S_B_OI(bruch),bruch); 
+            M_I_I(tmp,bruch); 
             goto ende; }
         else if (S_B_UI(bruch) == -1) { 
+            INT tmp = S_B_OI(bruch);
             freeself_bruch(bruch);
-            M_I_I( - S_B_OI(bruch),bruch); 
+            M_I_I( - tmp,bruch); 
             goto ende; }
     if (NEGP(S_B_O(bruch)) && NEGP(S_B_U(bruch)))
         {
'/guix/log/.guix-channel'>log</a><a href='/guix/tree/.guix-channel?id=bb0d93c810e475eeefdfd1880caa533138442bdb'>tree</a><a href='/guix/commit/.guix-channel?id=bb0d93c810e475eeefdfd1880caa533138442bdb'>commit</a><a href='/guix/diff/.guix-channel?id=bb0d93c810e475eeefdfd1880caa533138442bdb'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/.guix-channel'>
<input type='hidden' name='id' value='bb0d93c810e475eeefdfd1880caa533138442bdb'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=bb0d93c810e475eeefdfd1880caa533138442bdb'>root</a>/<a href='/guix/log/.guix-channel?id=bb0d93c810e475eeefdfd1880caa533138442bdb'>.guix-channel</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/.guix-channel?id=bb0d93c810e475eeefdfd1880caa533138442bdb&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-06-17 19:32:43 +0200'>2020-06-17</span></td><td><a href='/guix/commit/.guix-channel?id=8b1f7c03d239ca703b56f2a6e5f228c79bc1857e'>.guix-channel: Add primary URL.</a><span class='msg-avail'>...<span class='msg-tooltip'>* .guix-channel: Add 'url'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-06-16 16:10:47 +0200'>2020-06-16</span></td><td><a href='/guix/commit/.guix-channel?id=a941e8fe1f2ef47be2b30a54925febbc7dfb5389'>.guix-channel: Add 'keyring-reference'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* .guix-channel: Add 'keyring-reference'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-09-23 10:41:30 +0200'>2019-09-23</span></td><td><a href='/guix/commit/.guix-channel?id=dcc90d15581189dbc30e201db2b807273d6484f0'>Add '.guix-channel' file.</a><span class='msg-avail'>...<span class='msg-tooltip'>* .guix-channel: New file.
* Makefile.am (EXTRA_DIST): Add it.
</span></span></td><td>Ludovic Courtès</td></tr>
ests/packages.scm,
tests/profiles.scm,
tests/system.scm: Remove #:use-module (guix grafts).
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-06-15 00:25:20 +0200'>2022-06-15</span></td><td><a href='/guix/commit/tests/system.scm?id=7046e777212233b89df68379c270b448c45195ce'>system: &lt;operating-system&gt; compiler truly honors the 'system' argument.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/55951&gt;.

* gnu/system.scm (operating-system-compiler): Parameterize
'%current-system' and '%current-target-system' before calling
'operating-system-derivation'.
* tests/system.scm ("lower-object, %current-system sensitivity"): New
test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-08-29 01:05:26 -0400'>2021-08-29</span></td><td><a href='/guix/commit/tests/system.scm?id=da4e40948326387d5bcda58783914d5f9ce8b095'>Migrate to the new 'targets' field of bootloader-configuration.</a><span class='msg-avail'>...<span class='msg-tooltip'>The old 'target' field is deprecated; adjust the sources to use the new
'targets' one instead.

* doc/guix-cookbook.texi&lt;target&gt;: Replace by 'targets'.
* gnu/bootloader/grub.scm: Likewise.
* gnu/installer/parted.scm: Likewise.
* gnu/machine/digital-ocean.scm: Likewise.
* gnu/system/examples/asus-c201.tmpl: Likewise
* gnu/system/examples/bare-bones.tmpl: Likewise
* gnu/system/examples/bare-hurd.tmpl: Likewise
* gnu/system/examples/beaglebone-black.tmpl: Likewise
* gnu/system/examples/desktop.tmpl: Likewise
* gnu/system/examples/docker-image.tmpl: Likewise
* gnu/system/examples/lightweight-desktop.tmpl: Likewise
* gnu/system/examples/vm-image.tmpl: Likewise
* gnu/system/examples/yggdrasil.tmpl: Likewise
* gnu/system/hurd.scm: Likewise
* gnu/system/images/hurd.scm: Likewise
* gnu/system/images/novena.scm: Likewise
* gnu/system/images/pine64.scm: Likewise
* gnu/system/images/pinebook-pro.scm: Likewise
* gnu/system/images/rock64.scm: Likewise
* gnu/system/install.scm: Likewise
* gnu/system/vm.scm: Likewise
* gnu/tests.scm: Likewise
* gnu/tests/ganeti.scm: Likewise
* gnu/tests/install.scm: Likewise
* gnu/tests/nfs.scm: Likewise
* gnu/tests/telephony.scm: Likewise
* tests/boot-parameters.scm: Likewise
* tests/system.scm: Likewise
</span></span></td><td>Maxim Cournoyer</td></tr>